home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / bootmess.src < prev    next >
Text File  |  1991-02-21  |  848b  |  43 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ BOOTMESS
  3. @ by Kevin Jessup
  4. DIR
  5.  
  6.   GREET
  7.     \<< "GOOD " { "MORNING" "AFTERNOON" "EVENING" } TIME DUP
  8.       IF 12 <
  9.       THEN DROP 1
  10.       ELSE
  11.         IF 18 <
  12.         THEN 2
  13.         ELSE 3
  14.         END
  15.       END GET +
  16.     \>>
  17.  
  18.   BOOTTIME { # 1D41D7D4EC60Eh "12/25/90 03:21" }
  19.  
  20.   PRESERVE
  21.     \<< RCLF \-> f
  22.       \<< EVAL f STOF
  23.       \>>
  24.     \>>
  25.  
  26.   SIGNOFF
  27.     \<< CLLCD OFF UPTIME
  28.     \>>
  29.  
  30.   SYSUP
  31.     \<< TICKS DATE TIME TSTR 5 18 SUB 2 \->LIST 'BOOTTIME' STO
  32.     \>>
  33.  
  34.   UPTIME
  35.     \<< CLLCD 2 FREEZE
  36.       \<< GREET 4 DISP BOOTTIME OBJ\-> DROP "Booted: " SWAP + 5 DISP TICKS
  37.        SWAP - B\->R 29491200 / DUP 24 / IP 0 FIX \->STR SWAP 24 MOD \->HMS
  38.        4 FIX \->STR + "Online: " SWAP + 6 DISP "kBytes: " MEM 1024 / 1 FIX
  39.        \->STR + 7 DISP
  40.       \>> PRESERVE
  41.     \>>
  42. END
  43.